## Not run:
# #Ex: CanadianWeather data
# tt=1:365
# fdataobj<-fdata(t(CanadianWeather$dailyAv[,,1]),tt)
# # Fraiman-Muniz Depth
# out.FM=depth.FM(fdataobj,trim=0.1,draw=TRUE)
# #Modal Depth
# out.mode=depth.mode(fdataobj,trim=0.1,draw=TRUE)
# out.RP=depth.RP(fdataobj,trim=0.1,draw=TRUE)
# out.RT=depth.RT(fdataobj,trim=0.1,draw=TRUE)
# out.FSD=depth.FSD(fdataobj,trim=0.1,draw=TRUE)
# out.KFSD=depth.KFSD(fdataobj,trim=0.1,draw=TRUE)
# ## Double Random Projections
# out.RPD=depth.RPD(fdataobj,deriv=c(0,1),dfunc2=depth.FM,
# trim=0.1,draw=TRUE)
# out<-c(out.FM$mtrim,out.mode$mtrim,out.RP$mtrim,out.RPD$mtrim)
# plot(fdataobj,col="grey")
# lines(out)
# cdep<-cbind(out.FM$dep,out.mode$dep,out.RP$dep,out.RT$dep,out.FSD$dep,out.KFSD$dep)
# colnames(cdep)<-c("FM","mode","RP","RT","FSD","KFSD")
# pairs(cdep)
# round(cor(cdep),2)
# ## End(Not run)
Run the code above in your browser using DataLab